CommonEvent 2333
Name = "誘惑：クィーンヴァンパイア"

  999([2333])
  ConditionalBranch([0, 26, 1])
    ExitEventProcessing([])
    Empty([])

  BranchEnd([])
  Script(["$game_troop.lose_event_id = 3333"])
  ControlVariables([26, 26, 0, 3, 3, 1, 4])
  ControlVariables([26, 26, 4, 0, 10])
  ShowTextAttributes(["queenvampire_fc1", 0, 0, 2])
  ShowText(["\\n<Queen Vampire>Oho, your power is magnificent...\nHumans like you are very rare."])
  ShowText([""])
  ShowText([""])
  Script(["battler_graphic_hide"])
  ShowPicture([5, "ev_queenvanpire_ha1", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The Queen Vampire holds Luka from behind!\nHer mantle twines around his penis!"])
  ShowText([""])
  ShowTextAttributes(["queenvampire_fc1", 0, 0, 2])
  ShowText(["\\n<Queen Vampire>If you're as strong of a man as you seem, your blood and semen will be delicious. I shall give you sufficient pleasure in exchange for your blood..."])
  ShowText([""])
  ShowText([""])
  ControlSwitches([98, 98, 0])
  ControlSwitches([96, 96, 0])
  ShowChoices([["Struggle", "Let her continue"], 1])
  When([0, "もがく"])
    ShowTextAttributes(["", 0, 0, 2])
    ShowText(["Luka struggles violently, and escapes from the Queen Vampire's restraint!"])
    CallCommonEvent([1999])
    ExitEventProcessing([])
    Empty([])

  When([1, "なすがまま"])
    Empty([])

  ChoicesEnd([])
  ShowTextAttributes(["queenvampire_fc1", 0, 0, 2])
  ShowText(["\\n<Queen Vampire>Now... I shall have an ample taste of your blood!"])
  ShowText([""])
  ControlVariables([26, 26, 3, 0, 2])
  PlaySE(["RPG::SE(@name=\"mon_ero_chupa6\", @pitch=100, @volume=100)"])
  ChangeHP([0, 1, 1, 1, 26, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The Queen Vampire grabs Luka from behind, firmly holding him! Her fangs pierce into his neck as she sucks his blood!\\D"])
  ShowText(["Luka takes \\V[26] damage!"])
  ShowText([""])
  ControlVariables([27, 27, 0, 3, 3, 1, 2])
  ConditionalBranch([1, 27, 0, 0, 0])
    JumpToLabel(["射精1"])
    Empty([])

  BranchEnd([])
  ShowTextAttributes(["queenvampire_fc1", 0, 0, 2])
  ShowText(["\\n<Queen Vampire>Kuku...I'll immerse you in heaven.\nOnce that happens, you will be finished immediately..."])
  ShowText([""])
  ShowText([""])
  PlaySE(["RPG::SE(@name=\"mon_ero_chupa6\", @pitch=100, @volume=100)"])
  ChangeHP([0, 1, 1, 1, 26, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The Queen Vampire sucks blood from Luka's neck!\nHer mantle envelops his penis at the same time, sweetly stimulating him!\\D"])
  ShowText(["Luka takes \\V[26] damage!"])
  ShowText([""])
  ControlVariables([27, 27, 0, 3, 3, 1, 2])
  ConditionalBranch([1, 27, 0, 0, 0])
    JumpToLabel(["射精1"])
    Empty([])

  BranchEnd([])
  ShowTextAttributes(["queenvampire_fc1", 0, 0, 2])
  ShowText(["\\n<Queen Vampire>I'll also show your genitals some love as I suck your blood... Hooora, I'll rub it plenty..."])
  ShowText([""])
  ShowText([""])
  PlaySE(["RPG::SE(@name=\"mon_ero_chupa6\", @pitch=100, @volume=100)"])
  ChangeHP([0, 1, 1, 1, 26, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The pleasure accompanying the Queen Vampire's bloodsucking gradually dominates Luka's body! Her mantle tightens around his penis, slowly pressuring it!\\D"])
  ShowText(["Luka takes \\V[26] damage!"])
  ShowText([""])
  ControlVariables([27, 27, 0, 3, 3, 1, 2])
  ConditionalBranch([1, 27, 0, 0, 0])
    JumpToLabel(["射精1"])
    Empty([])

  BranchEnd([])
  ShowTextAttributes(["queenvampire_fc1", 0, 0, 2])
  ShowText(["\\n<Queen Vampire>Isn't being sucked by me just like a paradise of pleasure? You don't need to worry about losing your reason as you are..."])
  ShowText([""])
  ShowText([""])
  PlaySE(["RPG::SE(@name=\"mon_ero_chupa6\", @pitch=100, @volume=100)"])
  ChangeHP([0, 1, 1, 1, 26, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The Queen Vampire sucks blood from Luka's neck, slowly squeezing it out! Her mantle squeezes his penis, stimulating him with pleasure!\\D"])
  ShowText(["Luka takes \\V[26] damage!"])
  ShowText([""])
  ControlVariables([27, 27, 0, 3, 3, 1, 2])
  ConditionalBranch([1, 27, 0, 0, 0])
    JumpToLabel(["射精1"])
    Empty([])

  BranchEnd([])
  ShowTextAttributes(["queenvampire_fc1", 0, 0, 2])
  ShowText(["\\n<Queen Vampire>Now then...I shall end this.\nI shall suck up all of your energy as you immerse yourself in the exhausting pleasure of male joy..."])
  ShowText([""])
  ShowText([""])
  ControlVariables([26, 26, 3, 0, 2])
  PlaySE(["RPG::SE(@name=\"mon_ero_chupa6\", @pitch=100, @volume=100)"])
  ChangeHP([0, 1, 1, 1, 26, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The Queen Vampire sucks up Luka's blood, flooding him with sweet ecstasy! Her mantle twists around his glans, stimulating it as she plays with it!\\D"])
  ShowText(["Luka takes \\V[26] damage!"])
  ShowText([""])
  ControlVariables([27, 27, 0, 3, 3, 1, 2])
  ConditionalBranch([1, 27, 0, 0, 0])
    JumpToLabel(["射精1"])
    Empty([])

  BranchEnd([])
  Label(["射精1"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["No, I'm going to come... Aaaah..."])
  CallCommonEvent([104])
  ShowPicture([5, "ev_queenvanpire_ha2", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["I come while having my blood sucked in the Queen Vampire's embrace. While immersed in ecstasy, I accidentally release my semen."])
  ShowText([""])
  ShowTextAttributes(["queenvampire_fc1", 0, 0, 2])
  ShowText(["\\n<Queen Vampire>Kuku, did you ascend within my embrace?\nWhat a shameful man, prematurely ejaculating like that..."])
  ShowText([""])
  ShowText([""])
  CallCommonEvent([2000])
  ExitEventProcessing([])
  Empty([])
